home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / prelude / Semaphore.p < prev    next >
Text File  |  2004-01-31  |  910b  |  29 lines
  1. pTempVar <- <primitive 110 4 >
  2. <primitive 112 pTempVar 1  " wait " \
  3.   #( #[ 16rFA 16r00 16r94 16rF2 16r10 16r50 16rC9 16rF7 16r0A 16r20 16r5F \
  4.         16r0B 16r17 16rF2 16r5F 16r0A 16r13 16rF8 16r06 16rF2 16r10 \
  5.         16r51 16rC1 16rF1 16r60 16rF2 16rFA 16r00 16r95 16rF2 16rF5 \
  6.        ] \
  7.     #(  )) >
  8.  
  9. <primitive 112 pTempVar 2  " signal " \
  10.   #( #[ 16rFA 16r00 16r94 16rF2 16r20 16r0A 16r1C 16rF7 16r07 16r10 16r51 \
  11.         16rC0 16rF1 16r60 16rF8 16r06 16rF2 16r20 16r0A 16r26 16r0A \
  12.         16r30 16rF2 16rFA 16r00 16r95 16rF2 16rF5] \
  13.     #(  )) >
  14.  
  15. <primitive 112 pTempVar 3  " new: " \
  16.   #( #[ 16r21 16r60 16rF5] \
  17.     #(  )) >
  18.  
  19. <primitive 112 pTempVar 4  " new " \
  20.   #( #[ 16r50 16r60 16rF5] \
  21.     #(  )) >
  22.  
  23. <primitive 98 #Semaphore \
  24.   <primitive 97 #Semaphore #List #AmigaTalk:General/Semaphore.st \
  25.    #(  #excessSignals ) \
  26.    #( #wait #signal #new: #new  ) \
  27.   pTempVar 2 4 > #ordinary >
  28.  
  29.